home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / jazclib1.arc / JZWRTSTR.C < prev    next >
Text File  |  1986-01-16  |  302b  |  16 lines
  1. jzwrtstr ( fstr , frow , fcol , fattr )
  2. char *fstr;
  3. int frow,fcol,fattr;
  4. {
  5.   while (*fstr) {
  6.     jzloccur(frow,fcol);
  7.     jzwrtchr(*fstr++,fattr,1);
  8.     ++ fcol;
  9.     if (fcol > 79) {
  10.       fcol = 0;
  11.       if (frow == 24) jzscrlup( 0x100,0x184f,1,fattr);
  12.       else ++ frow;
  13.     }
  14.   }
  15. }
  16.